home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1996 June
/
64er_Magazin_96-06_1996_Markt__Technik_de_Side_B.d64
/
su-do-kern-gen 3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
57 lines
0 rem"basic interprete"
1 rem"cbm kernal******"
2 rem"suprados kernal3"
3 rem"sudo3 kernal 24p"
4 rem"sudo3 kernal 28p"
5 rem"0123456789abcdef"
1000 rem a=accu x=x y=y
1010 poke52,32:poke56,32:clr
1020 poke157,128
1030 print"[147]
1040 [153]"fuer welchen computer typ (1/2)
1050 print"1 c64 alt 24pin rom
1060 [153]"2 c64 neu c128 28pin rom
1070 geta$:ifa$<>"1"anda$<>"2"then1070
1080 ifa$="2"then1150
1090 poke198,0:input"legen sie die quelldisk ein u. druecken sie return";a$
1100 y=32:ln=31:hn=8:gosub1380
1110 y=64:ln=55:hn=8:gosub1380
1120 ln=79
1130 y=96
1140 goto1220:rem-----------------------
1150 poke198,0:input"legen sie die quelldisk ein u. druecken sie return";a$
1160 y=32:ln=7:hn=8:gosub1380
1170 y=64:ln=31:hn=8:gosub1380
1180 y=96:ln=7:hn=8:gosub1380
1190 y=128:ln=55:hn=8:gosub1380
1200 ln=103
1210 y=160
1220 print
1230 poke198,0:input"legen sie die zieldisk ein und druecken sie return";a$
1240 open15,8,15,"i":close15
1250 hn=8
1260 poke780,252:rem zeiger auf start
1270 poke781,0:rem low ende
1280 poke782,y:rem high ende
1290 poke252,0 :rem start low
1300 poke253,32 :rem start high
1310 poke186,8:rem geraeteadresse
1320 poke183,16:rem laenge d.namens
1330 poke187,ln:rem low anfang name
1340 poke188,hn:rem high anfang name
1350 sys65496:rem save
1360 open15,8,15:input#15,a,b$,c,d:close15:print:printa;b$;c;d:ifa>0thenend
1370 end
1380 rem load -------------------------
1390 poke780,0:rem =load
1400 poke781,0:rem start high
1410 poke782,y:rem start low
1420 poke186,8:rem geraeteadresse
1430 poke185,0:rem absolut laden
1440 poke183,16:rem laenge d.namens
1450 poke187,ln:rem low anfang name
1460 poke188,hn:rem high anfang name
1470 sys65493:rem load
1480 open15,8,15:input#15,a,b$,c,d:close15:print:printa;b$;c;d:ifa>0thenend
1490 return